/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / basic / BlitzMAP.lha / BlitzMAP / example_source / display_map_example.bb2.bak

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.;      |        |
|00000010| 20 20 20 20 20 20 20 64 | 69 73 70 6c 61 79 5f 6d |       d|isplay_m|
|00000020| 61 70 5f 65 78 61 6d 70 | 6c 65 2e 62 62 32 00 00 |ap_examp|le.bb2..|
|00000030| 3b 20 54 68 69 73 20 69 | 73 20 61 6e 20 65 78 61 |; This i|s an exa|
|00000040| 6d 70 6c 65 20 6f 66 20 | 68 6f 77 20 74 6f 20 64 |mple of |how to d|
|00000050| 69 73 70 6c 61 79 20 61 | 20 6d 61 70 20 63 72 65 |isplay a| map cre|
|00000060| 61 74 65 64 20 62 79 20 | 42 6c 69 74 7a 4d 41 50 |ated by |BlitzMAP|
|00000070| 2e 00 00 3b 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |...; The| followi|
|00000080| 6e 67 20 66 69 6c 65 73 | 20 6e 65 65 64 20 74 6f |ng files| need to|
|00000090| 20 62 65 20 69 6e 20 74 | 68 65 20 73 61 6d 65 20 | be in t|he same |
|000000a0| 64 72 61 77 65 72 20 61 | 73 20 74 68 65 00 3b 20 |drawer a|s the.; |
|000000b0| 70 72 6f 67 72 61 6d 2e | 2e 2e 00 00 3b 20 65 78 |program.|....; ex|
|000000c0| 61 6d 70 6c 65 2e 6d 61 | 70 20 20 20 20 20 20 3b |ample.ma|p      ;|
|000000d0| 6d 61 70 20 64 61 74 61 | 00 3b 20 65 78 61 6d 70 |map data|.; examp|
|000000e0| 6c 65 2e 6d 61 70 2e 73 | 68 70 20 20 3b 20 73 68 |le.map.s|hp  ; sh|
|000000f0| 61 70 65 73 00 3b 20 65 | 78 61 6d 70 6c 65 2e 6d |apes.; e|xample.m|
|00000100| 61 70 2e 70 61 6c 20 20 | 3b 20 70 61 6c 65 74 74 |ap.pal  |; palett|
|00000110| 65 00 00 3b 20 53 65 65 | 20 61 6c 73 6f 20 74 68 |e..; See| also th|
|00000120| 65 20 65 78 61 6d 70 6c | 65 20 63 61 6c 6c 65 64 |e exampl|e called|
|00000130| 20 76 61 6c 75 65 73 5f | 61 6e 64 5f 65 66 66 65 | values_|and_effe|
|00000140| 63 74 73 2e 62 62 32 00 | 3b 20 49 74 20 73 68 6f |cts.bb2.|; It sho|
|00000150| 75 6c 64 20 62 65 20 69 | 6e 20 74 68 65 20 73 61 |uld be i|n the sa|
|00000160| 6d 65 20 61 72 63 68 69 | 76 65 2c 20 61 6e 64 20 |me archi|ve, and |
|00000170| 67 69 76 65 73 20 61 6e | 20 65 78 61 6d 70 6c 65 |gives an| example|
|00000180| 00 3b 20 6f 66 20 74 68 | 65 20 75 73 65 20 6f 66 |.; of th|e use of|
|00000190| 20 76 61 6c 75 65 73 20 | 61 6e 64 20 65 66 66 65 | values |and effe|
|000001a0| 63 74 73 20 73 61 76 65 | 64 20 66 72 6f 6d 20 42 |cts save|d from B|
|000001b0| 6c 69 74 7a 4d 41 50 2e | 00 00 3b 20 4c 69 7a 20 |litzMAP.|..; Liz |
|000001c0| 54 75 63 6b 65 72 20 31 | 39 39 36 00 3b 20 74 75 |Tucker 1|996.; tu|
|000001d0| 63 6b 73 40 70 61 76 69 | 6c 69 6f 6e 2e 63 6f 2e |cks@pavi|lion.co.|
|000001e0| 75 6b 00 00 00 cd 0a 20 | 31 2c 22 65 78 61 6d 70 |uk..... |1,"examp|
|000001f0| 6c 65 2e 6d 61 70 2e 73 | 68 70 22 20 20 3b 20 66 |le.map.s|hp"  ; f|
|00000200| 69 6c 65 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 61 |ile cont|aining a|
|00000210| 6c 6c 20 6f 66 20 74 68 | 65 20 62 6c 6f 63 6b 73 |ll of th|e blocks|
|00000220| 00 00 a6 04 20 31 2c 22 | 65 78 61 6d 70 6c 65 2e |.... 1,"|example.|
|00000230| 6d 61 70 22 2c 30 20 20 | 20 20 20 20 3b 20 6c 6f |map",0  |    ; lo|
|00000240| 61 64 20 6d 61 70 20 66 | 69 6c 65 20 69 6e 74 6f |ad map f|ile into|
|00000250| 20 62 61 6e 6b 20 31 00 | 00 ce 01 20 30 2c 22 65 | bank 1.|... 0,"e|
|00000260| 78 61 6d 70 6c 65 2e 6d | 61 70 2e 70 61 6c 22 20 |xample.m|ap.pal" |
|00000270| 3b 20 63 6f 6c 6f 75 72 | 73 20 66 6f 72 20 62 61 |; colour|s for ba|
|00000280| 63 6b 67 72 6f 75 6e 64 | 00 00 80 01 2e 70 6f 73 |ckground|.....pos|
|00000290| 20 20 3b 20 73 74 6f 72 | 65 73 20 74 68 65 20 78 |  ; stor|es the x|
|000002a0| 20 61 6e 64 20 79 20 70 | 6f 73 69 74 69 6f 6e 73 | and y p|ositions|
|000002b0| 20 6f 66 20 74 68 65 20 | 6d 61 70 00 20 20 78 2e | of the |map.  x.|
|000002c0| 77 20 3a 20 79 00 80 02 | 20 80 01 00 00 80 01 2e |w : y...| .......|
|000002d0| 73 69 7a 65 20 3b 20 73 | 74 6f 72 65 73 20 74 68 |size ; s|tores th|
|000002e0| 65 20 78 20 73 69 7a 65 | 20 61 6e 64 20 79 20 73 |e x size| and y s|
|000002f0| 69 7a 65 20 6f 66 20 74 | 68 65 20 6d 61 70 00 20 |ize of t|he map. |
|00000300| 20 78 2e 77 20 3a 20 79 | 00 80 02 20 80 01 00 00 | x.w : y|... ....|
|00000310| 6d 61 70 73 69 7a 65 2e | 73 69 7a 65 5c 78 3d da |mapsize.|size\x=.|
|00000320| 02 2e 77 20 28 a6 01 28 | 31 29 29 20 3b 20 52 65 |..w (..(|1)) ; Re|
|00000330| 61 64 20 6d 61 70 73 69 | 7a 65 20 64 61 74 61 20 |ad mapsi|ze data |
|00000340| 66 72 6f 6d 20 74 68 65 | 00 6d 61 70 73 69 7a 65 |from the|.mapsize|
|00000350| 5c 79 3d da 02 2e 77 20 | 28 a6 01 28 31 29 2b 32 |\y=...w |(..(1)+2|
|00000360| 29 20 20 20 20 3b 20 62 | 65 67 69 6e 6e 69 6e 67 |)    ; b|eginning|
|00000370| 20 6f 66 20 74 68 65 20 | 6d 61 70 20 62 61 6e 6b | of the |map bank|
|00000380| 00 00 80 04 20 78 79 28 | 6d 61 70 73 69 7a 65 5c |.... xy(|mapsize\|
|00000390| 78 2d 31 2c 6d 61 70 73 | 69 7a 65 5c 79 2d 31 29 |x-1,maps|ize\y-1)|
|000003a0| 20 3b 20 63 72 65 61 74 | 65 20 61 6e 20 61 72 72 | ; creat|e an arr|
|000003b0| 61 79 20 66 6f 72 20 68 | 6f 6c 64 69 6e 67 20 74 |ay for h|olding t|
|000003c0| 68 65 20 6d 61 70 20 64 | 61 74 61 00 00 6d 3d 34 |he map d|ata..m=4|
|000003d0| 00 00 80 16 20 79 79 3d | 30 20 80 18 20 6d 61 70 |.... yy=|0 .. map|
|000003e0| 73 69 7a 65 5c 79 2d 31 | 20 20 20 20 20 20 20 20 |size\y-1|        |
|000003f0| 20 3b 20 72 65 61 64 20 | 64 61 74 61 20 69 6e 74 | ; read |data int|
|00000400| 6f 20 74 68 65 20 61 72 | 72 61 79 00 20 20 80 16 |o the ar|ray.  ..|
|00000410| 20 78 78 3d 30 20 80 18 | 20 6d 61 70 73 69 7a 65 | xx=0 ..| mapsize|
|00000420| 5c 78 2d 31 00 20 20 78 | 79 28 78 78 2c 79 79 29 |\x-1.  x|y(xx,yy)|
|00000430| 3d da 02 2e 77 28 a6 01 | 28 31 29 2b 6d 29 2b 31 |=...w(..|(1)+m)+1|
|00000440| 00 20 20 6d 2b 32 00 20 | 20 80 17 20 78 78 00 80 |.  m+2. | .. xx..|
|00000450| 17 20 79 79 00 00 80 2b | 20 a6 01 20 31 20 20 20 |. yy...+| .. 1   |
|00000460| 20 3b 20 4e 6f 77 20 74 | 68 65 20 64 61 74 61 20 | ; Now t|he data |
|00000470| 69 73 20 68 65 6c 64 20 | 69 6e 20 74 68 65 20 61 |is held |in the a|
|00000480| 72 72 61 79 20 62 61 6e | 6b 20 31 20 69 73 20 6e |rray ban|k 1 is n|
|00000490| 6f 20 6c 6f 6e 67 65 72 | 20 6e 65 65 64 65 64 2e |o longer| needed.|
|000004a0| 00 00 6d 61 70 70 6f 73 | 2e 70 6f 73 5c 78 3d 31 |..mappos|.pos\x=1|
|000004b0| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|000004c0| 20 20 3b 20 70 6f 73 69 | 74 69 6f 6e 20 74 68 65 |  ; posi|tion the|
|000004d0| 20 6d 61 70 20 6f 6e 20 | 74 68 65 20 73 63 72 65 | map on |the scre|
|000004e0| 65 6e 00 6d 61 70 70 6f | 73 5c 79 3d 30 00 00 80 |en.mappo|s\y=0...|
|000004f0| 0b 20 6d 61 70 70 6f 73 | 5c 78 2b 32 30 3e 6d 61 |. mappos|\x+20>ma|
|00000500| 70 73 69 7a 65 5c 78 20 | 80 21 20 6d 61 70 70 6f |psize\x |.! mappo|
|00000510| 73 5c 78 3d 6d 61 70 73 | 69 7a 65 5c 78 2d 32 30 |s\x=maps|ize\x-20|
|00000520| 20 3b 20 65 72 72 6f 72 | 20 63 68 65 63 6b 69 6e | ; error| checkin|
|00000530| 67 00 80 0b 20 6d 61 70 | 70 6f 73 5c 78 3c 30 20 |g... map|pos\x<0 |
|00000540| 80 21 20 6d 61 70 70 6f | 73 5c 78 3d 30 00 00 80 |.! mappo|s\x=0...|
|00000550| 0b 20 6d 61 70 70 6f 73 | 5c 79 2b 31 32 3e 6d 61 |. mappos|\y+12>ma|
|00000560| 70 73 69 7a 65 5c 79 20 | 80 21 20 6d 61 70 70 6f |psize\y |.! mappo|
|00000570| 73 5c 79 3d 6d 61 70 73 | 69 7a 65 5c 79 2d 31 32 |s\y=maps|ize\y-12|
|00000580| 20 3b 20 65 72 72 6f 72 | 20 63 68 65 63 6b 69 6e | ; error| checkin|
|00000590| 67 00 80 0b 20 6d 61 70 | 70 6f 73 5c 79 3c 30 20 |g... map|pos\y<0 |
|000005a0| 80 21 20 6d 61 70 70 6f | 73 5c 79 3d 30 00 00 80 |.! mappo|s\y=0...|
|000005b0| 37 20 31 30 30 20 3b 20 | 77 61 69 74 20 66 6f 72 |7 100 ; |wait for|
|000005c0| 20 64 69 73 6b 20 61 63 | 74 69 76 69 74 79 20 74 | disk ac|tivity t|
|000005d0| 6f 20 73 74 6f 70 20 62 | 65 66 6f 72 65 20 65 6e |o stop b|efore en|
|000005e0| 74 65 72 69 6e 67 20 42 | 4c 49 54 5a 20 6d 6f 64 |tering B|LITZ mod|
|000005f0| 65 00 00 80 34 20 20 20 | 20 20 3b 20 65 6e 74 65 |e...4   |  ; ente|
|00000600| 72 20 42 4c 49 54 5a 20 | 6d 6f 64 65 00 00 3b 2d |r BLITZ |mode..;-|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 00 00 80 08 20 64 | 72 61 77 5f 6d 61 70 7b |--.... d|raw_map{|
|00000660| 6d 61 70 78 2c 6d 61 70 | 79 7d 00 00 3b 20 56 61 |mapx,map|y}..; Va|
|00000670| 6c 75 65 73 20 70 61 73 | 73 65 64 20 61 72 65 20 |lues pas|sed are |
|00000680| 74 68 65 20 78 20 61 6e | 64 20 79 20 70 6f 73 69 |the x an|d y posi|
|00000690| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 6d 61 70 20 |tion of |the map |
|000006a0| 28 74 6f 70 20 6c 65 66 | 74 20 6f 66 20 64 69 73 |(top lef|t of dis|
|000006b0| 70 6c 61 79 29 00 00 20 | 20 80 15 20 78 79 28 29 |play).. | .. xy()|
|000006c0| 00 00 20 20 20 80 16 20 | 79 63 6f 75 6e 74 65 72 |..   .. |ycounter|
|000006d0| 3d 30 20 80 18 20 31 31 | 20 20 20 3b 20 31 32 20 |=0 .. 11|   ; 12 |
|000006e0| 72 6f 77 73 20 74 6f 20 | 74 68 65 20 6d 61 70 00 |rows to |the map.|
|000006f0| 00 20 20 20 20 80 16 20 | 78 63 6f 75 6e 74 65 72 |.    .. |xcounter|
|00000700| 3d 30 20 80 18 20 31 39 | 20 20 3b 20 32 30 20 63 |=0 .. 19|  ; 20 c|
|00000710| 6f 6c 75 6d 6e 73 20 74 | 6f 20 74 68 65 20 6d 61 |olumns t|o the ma|
|00000720| 70 00 00 20 20 20 20 20 | 20 80 29 20 64 30 2c 78 |p..     | .) d0,x|
|00000730| 79 28 6d 61 70 78 2b 78 | 63 6f 75 6e 74 65 72 2c |y(mapx+x|counter,|
|00000740| 6d 61 70 79 2b 79 63 6f | 75 6e 74 65 72 29 00 20 |mapy+yco|unter). |
|00000750| 20 20 20 20 20 80 29 20 | 64 31 2c 78 63 6f 75 6e |     .) |d1,xcoun|
|00000760| 74 65 72 20 80 7c 20 34 | 20 3b 28 4c 53 4c 20 34 |ter .| 4| ;(LSL 4|
|00000770| 20 69 73 20 61 20 71 75 | 69 63 6b 20 77 61 79 20 | is a qu|ick way |
|00000780| 6f 66 20 2b 31 36 29 00 | 20 20 20 20 20 20 80 29 |of +16).|      .)|
|00000790| 20 64 32 2c 79 63 6f 75 | 6e 74 65 72 20 80 7c 20 | d2,ycou|nter .| |
|000007a0| 34 00 20 20 20 20 20 20 | 80 39 20 cb 08 00 00 20 |4.      |.9 .... |
|000007b0| 20 20 20 80 17 20 78 63 | 6f 75 6e 74 65 72 00 00 |   .. xc|ounter..|
|000007c0| 20 20 80 17 20 79 63 6f | 75 6e 74 65 72 00 00 80 |  .. yco|unter...|
|000007d0| 02 20 80 08 00 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ....;-|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 00 00 c7 |--------|-----...|
|00000820| 82 20 30 2c 34 34 2c 31 | 39 32 2c 24 34 31 34 2c |. 0,44,1|92,$414,|
|00000830| 38 2c 33 32 2c 30 20 3b | 20 63 72 65 61 74 65 20 |8,32,0 ;| create |
|00000840| 63 6f 70 6c 69 73 74 20 | 30 00 00 c7 83 20 30 20 |coplist |0.... 0 |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000860| 20 3b 20 75 73 65 20 63 | 6f 70 6c 69 73 74 20 30 | ; use c|oplist 0|
|00000870| 20 66 6f 72 20 64 69 73 | 70 6c 61 79 00 00 c7 86 | for dis|play....|
|00000880| 20 30 2c 30 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0,0    |        |
|00000890| 20 20 20 3b 20 67 65 74 | 20 70 61 6c 65 74 74 65 |   ; get| palette|
|000008a0| 00 00 d0 01 20 30 2c 33 | 32 30 2c 31 39 32 2c 35 |.... 0,3|20,192,5|
|000008b0| 20 3b 20 63 72 65 61 74 | 65 20 61 20 62 69 74 6d | ; creat|e a bitm|
|000008c0| 61 70 20 66 6f 72 20 74 | 68 65 20 77 69 6e 64 6f |ap for t|he windo|
|000008d0| 77 00 00 64 72 61 77 5f | 6d 61 70 7b 6d 61 70 70 |w..draw_|map{mapp|
|000008e0| 6f 73 5c 78 2c 6d 61 70 | 70 6f 73 5c 79 7d 00 00 |os\x,map|pos\y}..|
|000008f0| c7 84 20 30 2c 30 2c 30 | 2c 30 00 00 80 0a 00 00 |.. 0,0,0|,0......|
|00000900| 80 02 00 00 00 00       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+